home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathutr.arc / MATHTUTR.BAS (.txt)
Encoding:
GW-BASIC  |  1983-01-18  |  3.5 KB  |  151 lines
  1. 0  REM 
  2. 1  REM 
  3. 2  KEY OFF
  4. 100  WIDTH 80:CLS
  5. 110  LOCATE 4,15:PRINT "TABLE OF PROGRAMS"
  6. 120  LOCATE 8,23:PRINT "1 = MATHEMATICS TUTOR";
  7. 122  LOCATE 12,23:PRINT "2 = GUESS THE NUMBER";
  8. 180  REM
  9. 181  REM
  10. 182  REM
  11. 188  REM
  12. 190  LOCATE 24,6:INPUT "ENTER I.B.M. PROGRAM NUMBER >  ";I
  13. 200  REM
  14. 201  ON I GOTO 1000,2000
  15. 210  GOTO 188
  16. 1000  REM PLOT 6,32,12,27,11,14
  17. 1001  CLS:LOCATE 12,23:PRINT "I.B.M. PRESENTS MATHEMATICS TUTOR "
  18. 1002  FOR A= 0 TO 3000:NEXT
  19. 1004  C= 0:W= 0
  20. 1005  CLS
  21. 1010  PRINT "ENTER FUNCTION DESIRED :":PRINT 
  22. 1011  PRINT "TYPE A NUMBER LARGER THAN 4 TO END PROGRAM !"
  23. 1012  PRINT 
  24. 1013  INPUT "   ADD=1  SUBTRACT=2  MULTIPLY=3  DIVIDE=4  ";A
  25. 1014  PRINT  :IF A> 4 THEN END 
  26. 1015  INPUT "ENTER DEGREE OF DIFFICULTY  1,2,3,4 OR 5;  5=HARDEST  ";D
  27. 1020  ON D GOTO 1030,1032,1034,1036,1038
  28. 1027  GOTO 1015
  29. 1030  X= RND (8)* 10:X= INT (X):Y= RND (9)* 10:Y= INT (Y)
  30. 1031  GOTO 1040
  31. 1032  X= RND (8)* 100:X= INT (X):Y= RND (9)* 10:Y= INT (Y)
  32. 1033  GOTO 1040
  33. 1034  X= RND (8)* 100:X= INT (X):Y= RND (9)* 100:Y= INT (Y)
  34. 1035  GOTO 1040
  35. 1036  X= RND (8)* 1000:X= INT (X):Y= RND (9)* 100:Y= INT (Y)
  36. 1037  GOTO 1040
  37. 1038  X= RND (8)* 1000:X= INT (X):Y= RND (9)* 1000:Y= INT (Y)
  38. 1040  GOSUB 1100
  39. 1050  ON A GOTO 1200,1300,1400,1500
  40. 1054  GOTO 1010
  41. 1100  CLS
  42. 1105  LOCATE 1,23:PRINT "TYPE A LETTER TO TERMINATE PROBLEM !"
  43. 1110  LOCATE 4,23:PRINT "CORRECT ";C;"   WRONG";W
  44. 1120  RETURN 
  45. 1200  LOCATE 8,30:PRINT "ADD"
  46. 1210  LOCATE 12,28
  47. 1220  PRINT X;"+";Y;"=";:GOSUB 1350
  48. 1230  Q= X+ Y
  49. 1240  IF Q= Z THEN 1245
  50. 1241  LOCATE 14,13:PRINT "WRONG          ";X;"+";Y;"=";Q
  51. 1243  W= W+ 1
  52. 1244  GOTO 1600
  53. 1245  C= C+ 1
  54. 1246  LOCATE 14,23:PRINT "VERY GOOD, YOU ARE CORRECT"
  55. 1248  GOTO 1600
  56. 1300  LOCATE 8,30:PRINT "SUBTRACT"
  57. 1310  LOCATE 12,28
  58. 1315  IF X< Y THEN Q= X:X= Y:Y= Q
  59. 1320  PRINT X;"-";Y;"=";:GOSUB 1350
  60. 1330  Q= X- Y:IF Q= Z THEN 1245
  61. 1341  LOCATE 14,13:PRINT "WRONG          ";X;"-";Y;"=";Q
  62. 1343  GOTO 1243
  63. 1350  ROW=CSRLIN:COL=POS(0):INPUT"  ";Z$
  64. 1351  IF Z$ = "" THEN Z$ = "0": LOCATE ROW,COL+4:PRINT Z$:RETURN
  65. 1352  IF ASC (Z$) > 57 THEN GOTO 1005
  66. 1360  Z= VAL (Z$):RETURN 
  67. 1400  LOCATE 8,30:PRINT "MULTIPLY"
  68. 1410  LOCATE 12,28
  69. 1420  PRINT X;"*";Y;"=";:GOSUB 1350
  70. 1430  Q= X* Y:IF Q= Z THEN 1245
  71. 1435  LOCATE 14,13
  72. 1441  PRINT "WRONG          ";X;"*";Y;"=";Q
  73. 1443  GOTO 1243
  74. 1500  LOCATE 8,30:PRINT "DIVIDE"
  75. 1505  X= X* Y
  76. 1507  IF Y= 0 THEN 1020
  77. 1510  LOCATE 12,28
  78. 1520  PRINT X;"/";Y;"=";:GOSUB 1350
  79. 1522  Q= X/ Y
  80. 1526  IF Q= Z THEN 1245
  81. 1541  LOCATE 14,13:PRINT "WRONG          ";X;"/";Y;"=";Q
  82. 1543  GOTO 1243
  83. 1600  PRINT :INPUT "                      TOUCH ENTER TO CONTINUE ",XC: GOTO 1020
  84. 2000  CLS
  85. 2001  LOCATE 12,20:PRINT "I.B.M. PRESENTS GUESS THE NUMBER GAME "
  86. 2002  FOR A= 0 TO 3000:NEXT 
  87. 2003  P= 0:Q= 0
  88. 2004  CLS
  89. 2005  N= INT (RND (8)* 10000)
  90. 2006  GOSUB 2090
  91. 2007  NU= N:H= 0:U= 0:G= 0
  92. 2008  A1= A:B1= B:C1= C:D1= D
  93. 2020  PRINT "GUESS THE NUMBER               I.B.M.";Q"     PLAYER ";P
  94. 2025  LOCATE 4,35:PRINT "HITS   BULLS"
  95. 2035  FOR Y= 6 TO 20 STEP 2
  96. 2037  G= G+ 1
  97. 2040  LOCATE Y,15:PRINT G"       ____"
  98. 2050  LOCATE Y,18:INPUT "GUESS ";N
  99. 2052  GOSUB 2090
  100. 2055  GOSUB 2100
  101. 2060  LOCATE Y,35:PRINT H"      ";U
  102. 2062  IF U= 4 THEN 2078
  103. 2065  H= 0:U= 0
  104. 2070  NEXT Y
  105. 2073  Q= Q+ 1
  106. 2075  LOCATE Y+1,9:PRINT "YOU LOSE, THE NUMBER WAS ";NU
  107. 2076  GOTO 2080
  108. 2078  PRINT "YOU WIN, CARE TO TRY AGAIN "
  109. 2079  P= P+ 1
  110. 2080  LOCATE 23,45:INPUT "TYPE 1 FOR A NEW GAME ";I:IF I= 1 THEN 2004
  111. 2085  END 
  112. 2090  A= INT (N/ 1000)
  113. 2091  B= INT (N/ 100)- (10* A)
  114. 2092  C= INT (N/ 10)- (100* A)- (10* B)
  115. 2093  D= N- (A* 1000)- (B* 100)- (C* 10)
  116. 2094  RETURN 
  117. 2100  A2= A1:B2= B1:C2= C1:D2= D1
  118. 2110  IF A< > A2 THEN 2112
  119. 2111  H= H+ 1:U= U+ 1:A= 10:A2= 11
  120. 2112  IF B< > B2 THEN 2114
  121. 2113  H= H+ 1:U= U+ 1:B= 12:B2= 13
  122. 2114  IF C< > C2 THEN 2116
  123. 2115  H= H+ 1:U= U+ 1:C= 14:C2= 15
  124. 2116  IF D< > D2 THEN 2118
  125. 2117  H= H+ 1:U= U+ 1:D= 16:D2= 17
  126. 2118  IF A< > B2 THEN 2120
  127. 2119  H= H+ 1:A= 10:B2= 13
  128. 2120  IF A< > C2 THEN 2122
  129. 2121  H= H+ 1:A= 10:C2= 15
  130. 2122  IF A< > D2 THEN 2124
  131. 2123  H= H+ 1:A= 10:D2= 17
  132. 2124  IF B< > A2 THEN 2126
  133. 2125  H= H+ 1:B= 12:A2= 11
  134. 2126  IF B< > C2 THEN 2128
  135. 2127  H= H+ 1:B= 12:C2= 15
  136. 2128  IF B< > D2 THEN 2130
  137. 2129  H= H+ 1:B= 12:D2= 17
  138. 2130  IF C< > A2 THEN 2132
  139. 2131  H= H+ 1:C= 14:A2= 11
  140. 2132  IF C< > B2 THEN 2134
  141. 2133  H= H+ 1:C= 14:B2= 13
  142. 2134  IF C< > D2 THEN 2136
  143. 2135  H= H+ 1:C= 14:D2= 17
  144. 2136  IF D< > A2 THEN 2138
  145. 2137  H= H+ 1:D= 16:A2= 11
  146. 2138  IF D< > B2 THEN 2140
  147. 2139  H= H+ 1:D= 16:B2= 13
  148. 2140  IF D< > C2 THEN 2150
  149. 2141  H= H+ 1:D= 16:C2= 15
  150. 2150  RETURN 
  151.